Voyager Presents CD-ROM's That Matter/Voyager Presents CD-ROM's That Matter.iso/pc/demos/minsky/minsky.dir/00051_MOVIE SCRIPT.ls

Text File | 1994-10-19 | 563 b | 41 lines

on startMovie
  cursor(200)
  set the volume of sound 1 to 210
  set the volume of sound 2 to 210
end

on enterFrame
  cursor(200)
end

on waitQT chan
  if the movieRate of sprite chan = 1 then
    go(the frame)
  end if
end

on waitSound chan
  if soundBusy(chan) then
    go(the frame)
  end if
end

on waiting theTicks
  if theTicks >= the timer then
    go(the frame)
  end if
end

on goMovie chan
  set the movieRate of sprite chan to 1
end

on keyDown
  global autoPlaying
  set autoPlaying to 0
  sound stop 1
  sound stop 2
  unLoadCast()
  play done
end